Option Explicit
Sub A_Sample061()
    Dim myWb  As Workbook
    Set myWb = ThisWorkbook
        MsgBox myWb.Name
    Set myWb = Nothing	'
End Sub
